home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / RAIN.T < prev    next >
Text File  |  1991-02-16  |  5KB  |  125 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for RAIN: remote,password,last
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   last:     last name.  Optional: assumed equal to %n2
  10.  : Upload files listed in <bbs>.ul as follows: filename.ext,description
  11.  : description size: :--------:---------:---------:---------:------:
  12.  ena -K!Z p?0 findq "\n%remote," %lib/%ZCUSER.ids
  13.  if ? split z0 , , "";if %z1 goto haveuser
  14.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  15.  ife r nolog close;return
  16. haveuser:
  17.  if !%z2 sets z2 %n2
  18.  pat 22$cp "to continue\a" \r
  19.  pat 23$cp "to continue" \r
  20.  pat;pat 0i "<ENTER> :";pat 1i "COMPATIBLE (Y/N)?";wait -f2
  21.  while c&&!1&&L<15 mput \r wait -f1
  22.  if n bye;ife r nolog closerx;return
  23.  pat;pat 2c "Password please (or guest) :" "%z1\r"
  24.  pat 3c "Your last name please :" "%z2\r"
  25.  pat 4c$ "Command : \a" S\r
  26.  pat 5$ "Command : "
  27.  mput Y wait -f30;if n bye;ife r nolog close;return
  28.  pat;mput M;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r
  29.  wait -f30;if n bye;ife r nolog close;return
  30.  pat;mput R;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r;pat 2c <N>
  31.  wait -f30;if n bye;ife r nolog close;return
  32.  if !2 pat;mput Q;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r;wait -f30;ife !n goto escan;bye;ife r nolog close;return
  33.  pat;mput N
  34. scan:
  35.  pat;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r;pat 2l "Msg # "
  36.  wait -f30;if n bye;ife r nolog close;return
  37.  if 0 goto escan
  38.  split y2 "S" " " " " " " ""
  39.  sets z0 %y2;w;if %z2==1 sets z2 "0%z2"
  40.  ki;ife r nolog close;create -+S!i %n9/%remote%z2.log
  41.  echof \T%z0
  42.  pat;pat 0c \n "@w"
  43.  pat 1 "<Q>uit <T>hread <A>gain : "
  44.  wait -f30;if n bye;ife r nolog close;return
  45.  ki;ife r nolog close;create -+S %n9/ZC%d%ano.LOG
  46.  mput C;goback scan
  47. escan:
  48.  pat;mput Q;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r;wait -f30;if n bye;ife r nolog close;return
  49.  pat;mput f;pat 0$ "Command : ";wait -f30;if n bye;ife r nolog close;return
  50.  if !f%n8/%remote.ul goto nupl
  51.  pat;mput F;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r;wait -f30;if n bye;ife r nolog close;return
  52.  display inhibit;open -!g %n8/%remote.ul;display noinhibit;if !t goto dupl
  53. ulsk:
  54.  grab z1;if !t goto dupl
  55.  setc z9 \032;if Iz9,z1 nolog closetx;goto dupl
  56.  split z1 , "";if !%z0||!%z1 goback ulsk
  57.  sets z9 %z0;pat;mput U
  58.  pat 0c "library for upload : " 1
  59.  pat 1c "immediately? " Y
  60.  pat 2c "for your upload (Y/N)? " Y
  61.  pat 3c ".ext) of file : " "@putv z9;put \r;setc z9 \&"
  62.  pat 4c "YMODEM upload"
  63.  pat 5c "XMODEM-1K upload"
  64.  pat 6c "ZMODEM upload"
  65.  pat 7 "Ready to receive"
  66.  pat 8c$ "ss <ENTER>" \r
  67.  pat 9$ "Command : "
  68.  wait -f30;if n bye;ife r nolog close;return
  69.  if 9 goback ulsk
  70.  ife 6 sz -km %z0;else ife 4||5 sx -k %z0;else sx %z0
  71.  pat;pat 0 ":------:\r\n> "; pat 1$ "Command : ";pat 2c$ "ss <ENTER>" \r
  72.  wait -f30;if n bye;ife r nolog close;return
  73.  if 1 goback ulsk
  74.  pat;putv z1;put \r;pat 0i "\r\n 1 > "
  75.  wait -f30;if n bye;ife r nolog close;return
  76.  pat;mput \r
  77.  pat 1c "Command: " S
  78.  pat 2$ "Command : "
  79.  pat 3c$ "ss <ENTER>" \r
  80.  wait -f30;if n bye;ife r nolog close;return
  81.  goback ulsk
  82. dupl:
  83.  del %n8/%remote.ul
  84.  pat;mput G;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r;wait -f30;if n bye;ife r nolog close;return
  85. nupl:
  86.  pat;mput 1;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r;wait -f30;if n bye;ife r nolog close;return
  87.  gosub .%lib/agelist.t;if as0<14 goto nolist
  88.  pat;mput m;pat 0i \n;wait -f30;if n bye;ife r nolog close;return
  89.  ki;create -yS!i %n7/%remote.lst
  90.  if r split t " ";echof "\T%telno %remote %z1"
  91.  pat;pat 0$ " review : ";wait -f30;if n bye;ife r nolog close;return
  92.  pat;mput 99\r
  93.  pat 0l "\n**** End of directories ****";pat 1l "\n**** End of directory ****"
  94.  wait -f30;if n bye;ife r nolog close;return
  95.  if r display inhibit;close;display noinhibit
  96.  pat;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r
  97.  wait -f30;if n bye;ife r nolog close;return
  98. nolist:
  99.  ki;create -+ %n9/ZC%d%ano.LOG
  100.  if !f%n8/%remote.dl goto ndnl
  101.  display inhibit;open -!g %n8/%remote.dl;display noinhibit;if !t goto ddnl
  102. dlsk:
  103.  grab z1;if !t goto ddnl
  104.  setc z9 \032;if Iz9,z1 nolog closetx;goto ddnl
  105.  split z1 , "";if !%z0 goback dlsk
  106.  sets z9 %z0;pat;mput F
  107.  pat 0c "(filename.ext) : " "@putv z9;put \r;setc z9 \&"
  108.  pat 1c$ "ss <ENTER>" \r
  109.  pat 2c "Ymodem download"
  110.  pat 3c "ZMODEM download"
  111.  pat 4 "Ready to send"
  112.  wait -f30;if n bye;ife r nolog close;return
  113.  sleep 5;ife 3 rz -mp;else rc %z0
  114.  pat;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r
  115.  wait -f30;if n bye;ife r nolog close;return
  116.  goback dlsk
  117. ddnl:
  118.  del %n8/%remote.dl
  119. ndnl:
  120.  pat;mput Q;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r;wait -f30;if n bye;ife r nolog close;return
  121.  pat;lput "\r\n%n1, press alt-N if you want to run the session manually.\r\n"
  122.  pat;pat 24cp "rz\r**\030" "@rz -p";wait -F5;if !c bye;ife r nolog close;return
  123.  pat;mput T;pat 0$ "Command : ";pat 1c$ "ss <ENTER>" \r;wait -f30;if n bye;ife r nolog close;return
  124.  pat;mput N;wait -F35;ife c bye;ife r close;return
  125.